home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / conn173c.zip / RSB2CONN.MRG < prev    next >
Text File  |  1992-04-24  |  10KB  |  233 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS:  Date 9-1-1991  Size 136219 bytes
  4. * ------------[ Created 04-24-1992 12:42:37 ]------------
  5. * REPLACING old line(s) by new
  6. 109 '  $SUBTITLE: 'VarInit - subroutine to initialize system variables'
  7. '  $PAGE
  8. '
  9. '  NAME    --  VarInit
  10. '
  11. '  INPUTS  --  PARAMETER           MEANING
  12. '              NONE
  13. '
  14. '  OUTPUTS --  NONE
  15. '
  16. '  PURPOSE --  To initialize system variable
  17. '
  18.       SUB VarInit STATIC
  19.     ZAcknowledge$ = CHR$(6)
  20.     ZAckChar$ = "C" + _
  21.             ZAcknowledge$
  22.     ZActiveMenu$ = "B"
  23.     ZActiveMessage$ = CHR$(225)
  24.     ZBackSpace$ = CHR$(8) + _
  25.                  CHR$(32) + _
  26.                  CHR$(8)
  27.     ZBackArrow$ = CHR$(29) + _
  28.                   CHR$(32) + _
  29.                   CHR$(29)
  30. * ------[ first line different ]------
  31.     ZBaudRates$ = "      300  450 1200 2400 4800 7200 960012000144001920038400" ' CONN173C
  32.     ZBellRinger$ = CHR$(7)
  33.     ZBulletinMenu$ = ""
  34.     ZWasCL = 24
  35.     ZCancel$ = CHR$(24)
  36.     ZColorReset$ = CHR$(27) + _
  37.                    "[00;37;40m"
  38.     ZConfigFileName$ = "RBBS-PC.DEF"
  39.     ZCarriageReturn$ = CHR$(13)
  40.     ZDeletedMsg$ = CHR$(226)
  41.     ZEndTransmission$ = CHR$(4)
  42.     ZEscape$ = CHR$(27)
  43.     ZExpectActiveModem = 0
  44.     ZFalse = 0
  45.     ZF1Key = 59
  46.     ZF10Key = 68
  47.     ZConfName$ = "MAIN"
  48.     CALL SetHiLite (ZTrue)
  49.     ZHomeConf$ = ""
  50.     ZInConfMenu = -1
  51.     ZLastCommand$ = "M "
  52.     ZLimitMinsPerSession = 0
  53.     ZLineFeed$ = CHR$(10)
  54.     ZLineFeeds = NOT ZFalse
  55.     ZLineEditChk$ = CHR$(9) + _
  56.                     ZLineFeed$ + _
  57.                     CHR$(11) + _
  58.                     CHR$(12) + _
  59.                     CHR$(127) + _
  60.                     CHR$(8) + _
  61.                     ZBellRinger$ + _
  62.                     CHR$(26) + _
  63.                     CHR$(227)
  64.     ZLineMes$ = SPACE$(78)          ' fixed length string workspace
  65.     ZLockStatus$ = "UM UU UB UD"
  66.     ZMenuIndex = 2
  67.     ZNAK$ = CHR$(21)
  68.     ZNoAdvance = ZFalse
  69.     ZPageLength = 23
  70.     ZParseOff = ZFalse
  71.     ZPressEnter$ = " (Press [ENTER] to Quit)"                        ' TC090101
  72.     ZPressEnterExpert$ = " ([ENTER] Quits)"                          ' TC090101
  73.     ZPressEnterNovice$ = ZPressEnter$
  74.     ZPrivateDoor = ZFalse
  75.     ZRightMargin = 72
  76.     ZReturnLineFeed$ = ZCarriageReturn$ + _
  77.                         ZLineFeed$
  78.     ZSmartTable$ = "CS PB NS FN LN SL DT TM TR TE TL RP RR CT " + _
  79.                    "C1 C2 C3 C4 C0 DD BD DB UB DL UL FI VY VN " + _
  80.                    "TY TN BN ND FS LS"
  81.     ZStartOfHeader$ = CHR$(1)
  82.     ZTimeLoggedOn$ = SPACE$(8)
  83.     ZTrue = NOT ZFalse
  84.     ZUpInc = -1
  85.     ZXOff$ = CHR$(19)
  86.     ZXOn$ = CHR$(17)
  87.     ZInterrupOn$ = CHR$(11) + ZCancel$ + ZXOff$ + ZXOn$ + ZCarriageReturn$
  88.     ZOptionEnd$ = ZReturnLineFeed$ + " ,("
  89.     ZCrLf$ = ZCarriageReturn$ + ZLineFeed$
  90.     ZWasLG$(1) = "Registration Check Failed"
  91.     ZWasLG$(2) = "Sysop name attempted"
  92.     ZWasLG$(3) = "Locked out attempt"
  93.     ZWasLG$(4) = "Password Attempt failed"
  94.     ZWasLG$(5) = "Auto Lockout done"
  95.     ZWasLG$(6) = "Name in use on another Node!"
  96.     ZWasLG$(7) = ""
  97.     ZWasLG$(8) = "Locked reason read!"
  98.     ZWasLG$(9) = "Expired Registration"
  99.     END SUB
  100. * REPLACING old line(s) by new
  101. 328 IF ZBaudTest! = 0 THEN _                                         ' CONN173C
  102.        GOTO 324                                                      ' CONN173C
  103.     IF ZBaudTest! = 300 THEN _
  104.        ZBPS = -1 : _
  105.        GOTO 331
  106.     IF ZBaudTest! = 1200 OR ZBaudTest! = 1275 THEN _
  107.        ZBPS = -3 : _
  108.        GOTO 331
  109.     IF ZBaudTest! = 2400 THEN _
  110.        ZBPS = -4 : _
  111.        GOTO 331
  112.     IF ZBaudTest! = 4800 THEN _
  113.        ZBPS = -5 : _
  114.        GOTO 331
  115. * ------[ first line different ]------
  116.     IF ZBaudTest! = 7200 THEN _                                      ' CONN173C
  117.        ZBPS = -6 : _                                                 ' CONN173C
  118.        GOTO 331                                                      ' CONN173C
  119.     IF ZBaudTest! > 7200 AND ZBaudTest! < 12000 THEN _               ' CONN173C
  120.        ZBPS = -7 : _                                                 ' CONN173C
  121.        GOTO 331                                                      ' CONN173C
  122.     IF ZBaudTest! = 12000 THEN _                                     ' CONN173C
  123.        ZBPS = -8 : _                                                 ' CONN173C
  124.        GOTO 331                                                      ' CONN173C
  125.     IF ZBaudTest! = 14400 THEN _                                     ' CONN173C
  126.        ZBPS = -9 : _                                                 ' CONN173C
  127.        GOTO 331                                                      ' CONN173C
  128.     IF ZBaudTest! = 19200 THEN _                                     ' CONN173C
  129.        ZBPS = -10 : _                                                ' CONN173C
  130.        GOTO 331                                                      ' CONN173C
  131.     IF ZBaudTest! = 38400 THEN _                                     ' CONN173C
  132.        ZBPS = -11 : _                                                ' CONN173C
  133.        GOTO 331                                                      ' CONN173C
  134.     GOTO 324
  135. * REPLACING old line(s) by new
  136. 1654 ' $SUBTITLE: 'SetBaud - sub to set the baud rate in the RS232'
  137. ' $PAGE
  138. '
  139. '  NAME    -- SetBaud
  140. '
  141. '  INPUTS  --     PARAMETER                    MEANING
  142. '             ZBaudRateDivisor   NUMBER TO DIVIDE THE 8250 CHIP'S
  143. '                                 PROGRAMABLE CLOCK TO ADJUST THE
  144. '                                 BAUD RATE TO THE USER'S BAUD
  145. '                                 RATE (INDEPENDENT OF THE BAUD
  146. '                                 RATE USED TO OPEN THE COMM. PORT)
  147. '
  148. '        DESIRED BAUD        DIVISIOR (DECIMAL) TO OBTAIN DESIRED BAUD RATE
  149. '            RATE              PCjr         PC AND XT
  150. '              50             2237             2304
  151. '              75             1491             1536
  152. '             110             1017             1047
  153. '             134.5            832              857
  154. '             150              746              768
  155. '             300              373              384
  156. '             600              186              192
  157. '            1200               93               96
  158. '            1800               62               64
  159. '            2000               56               58
  160. '            2400               47               48
  161. '            3600               31               32
  162. '            4800               23               24
  163. '            7200          not available         16
  164. '            9600          not available         12
  165. * ------[ first line different ]------
  166. '           12000          not available         10                  ' CONN173C
  167. '           14400          not available          8                  ' CONN173C/DB093001
  168. '           19200          not available          6
  169. '           38400               "                 3
  170. '  OUTPUTS -- BAUD RATE SET IN THE RS232 INTERFACE
  171. '
  172. '  PURPOSE -- To set the baud rate in the RS232 interface
  173. '             inpependent of the baud rate the communications port
  174. '             was opened at
  175. '
  176.       SUB SetBaud STATIC
  177.      IF NOT ZKeepInitBaud THEN _
  178.         ZTalkToModemAt$ =  MID$(ZBaudRates$,(-5 * ZBPS),5) _
  179.      ELSE ZTalkToModemAt$ = ZModemInitBaud$
  180.      CALL Trim (ZTalkToModemAt$)
  181.      IF LEN(ZTalkToModemAt$) < 5 THEN _
  182.         ZTalkToModemAt$ = SPACE$(4 - LEN(ZTalkToModemAt$)) + _
  183.                             ZTalkToModemAt$
  184.      IF ZEightBit THEN_
  185.         Parity = 2 : _                                    ' No PARITY
  186.         DataBits = 3 : _                                  ' 8 DATA BITS
  187.         StopBits = 0 _                                    ' 1 STOP BIT
  188.      ELSE Parity = 3 : _                                  ' EVEN PARITY
  189.           DataBits = 2 : _                                ' 7 DATA BITS
  190.           StopBits = 0                                    ' 1 STOP BIT
  191.      ComSpeed! = VAL(ZTalkToModemAt$)
  192.      IF ComSpeed! > 19200 THEN _
  193.         IF ZFossil THEN _                                 ' JM051201
  194.            WasI = &H9600 _
  195.         ELSE WasI = 19200 _
  196.      ELSE WasI = ComSpeed!
  197.      IF ZFossil THEN _
  198.         CALL FosSpeed(ZComPort,WasI,Parity,DataBits,StopBits) : _
  199.         EXIT SUB
  200.      IF ComSpeed! = 2400 THEN _
  201.         ZBaudRateDivisor = &H30 + (1 * (ZComputerType = 2)) _
  202.      ELSE IF ComSpeed! = 1200 THEN _
  203.         ZBaudRateDivisor = &H60 + (3 * (ZComputerType = 2)) _
  204.      ELSE IF ComSpeed! = 9600 THEN _
  205.         ZBaudRateDivisor = &HC _
  206.      ELSE IF ComSpeed! = 300 THEN _
  207.         ZBaudRateDivisor = &H180 + (11 * (ZComputerType = 2)) _
  208.      ELSE IF ComSpeed! = 450 THEN _
  209.         ZBaudRateDivisor = &H100 + (8 * (ZComputerType = 2)) _
  210.      ELSE IF ComSpeed! = 4800 THEN _
  211.         ZBaudRateDivisor = &H18 _
  212.      ELSE IF ComSpeed! = 7200 THEN _                                 ' CONN173C
  213.         ZBaudRateDivisor = &H10 _                                    ' CONN173C
  214.      ELSE IF ComSpeed! = 12000 THEN _                                ' CONN173C
  215.         ZBaudRateDivisor = &HA _                                     ' CONN173C
  216.      ELSE IF ComSpeed! = 14400 THEN _                                ' CONN173C/DB093001
  217.         ZBaudRateDivisor = &H8 _                                     ' CONN173C/DB093001
  218.      ELSE IF ComSpeed! = 19200 THEN _
  219.         ZBaudRateDivisor = &H6 _
  220.      ELSE IF ComSpeed! = 38400 THEN _
  221.         ZBaudRateDivisor = &H3
  222.      MostSignifByte = FIX (ZBaudRateDivisor / 256)
  223.      LeastSignifByte = ZBaudRateDivisor - (MostSignifByte * 256)
  224.      LineCntlStatus = INP(ZLineCntlReg)
  225.      MSBSave = INP(ZMSB)
  226.      OUT ZMSB,0
  227.      OUT ZLineCntlReg,LineCntlStatus OR 128
  228.      OUT ZLSB,LeastSignifByte
  229.      OUT ZMSB,MostSignifByte
  230.      OUT ZLineCntlReg,LineCntlStatus
  231.      OUT ZMSB,MSBSave
  232.      END SUB
  233.